home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 58 / 058side3.d64 / home grown (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  6KB  |  189 lines
  1. 0 a$="":print"[147]":poke53274,0:sys65418
  2. 1 poke55,0:poke56,63:poke51,0:poke52,63
  3. 3 gosub61000
  4. 5 poke147,0:sys57812"routines v4",8,1:sys62631
  5. 6 poke147,0:sys57812"basic player.o",8,1:sys62631
  6. 7 poke147,0:sys57812"raster stuff.o",8,1:sys62631
  7. 8 poke147,0:sys57812"mus input any.o",8,1:sys62631
  8. 10 fr$="":la$="":ov$=""
  9. 11 ns=7:dim na$(ns),fi$(ns)
  10. 12 sa=780:sx=781:sy=782
  11. 13 fori=0to24:poke54272+i,0:next
  12. 15 su=51206:sd=51209
  13. 16 poke1020,10:poke1021,16:poke1022,7:poke1023,32
  14. 20 gosub1000
  15. 30 gosub1500
  16. 40 gosub2000
  17. 50 gosub3000
  18. 60 gosub100
  19. 64 print"[193]re you sure you want to quit? ([217]/[206])":poke198,.
  20. 66 a=peek(203):ifa<>25anda<>39then66
  21. 68 ifa=39thengosub2020:goto50
  22. 70 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  23. 72 ifer<>63thenprint"[147]":end
  24. 74 load"hello connect",8
  25. 100 printla$""
  26. 110 fora=1to5:print"                                    "
  27. 120 next:print"[145][145][145][145][145][145]"
  28. 130 return
  29. 1000 poke53280,14:poke53281,1
  30. 1010 print"[147]";
  31. 1012 fora=1to5:
  32. 1013 print"[154]                                        ";
  33. 1014 next
  34. 1015 print"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  35. 1020 fora=.to14:print"[154][221]                                      [221]";:next
  36. 1030 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  37. 1032 fora=1to2:
  38. 1033 print"[154]                                        ";
  39. 1034 next
  40. 1035 print"                                       [157][148] "
  41. 1040 fora=217to242:pokea,peek(a)or128:next
  42. 1050 print"[149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  43. 1060 print"[221][204][207][193][196][211][212][193][210]  [208]resents[221] "
  44. 1070 print"[149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  45. 1080 print"                   "
  46. 1090 print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  47. 1100 fora=1to5
  48. 1110 print"[144][221]                         [221] "
  49. 1120 next
  50. 1130 print"[144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  51. 1135 print"                          "
  52. 1140 print"[145][145][145][145][145][145] [200][207][205][197] [199][210][207][215][206] [205][213][211][201][195] "
  53. 1150 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  54. 1160 print"    [194]y [196]ebby [195]ruz"
  55. 1170 print"                     "
  56. 1180 print"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  57. 1190 print"[221]        [195]opyright 1988        [221] "
  58. 1191 print"[150][221]                              [221] "
  59. 1192 print"[150][221]        [211]oftdisk, [201]nc.        [221] "
  60. 1200 print"[150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  61. 1210 print"                                "
  62. 1220 fora=1tons:read na$(a),fi$(a):next
  63. 1230 print"[149]  [208]ress [211][208][193][195][197] to continue. [154]":poke198,.
  64. 1240 ifpeek(203)<>60then1240
  65. 1250 return
  66. 1500 print"[149][221]                  [221]"
  67. 1510 print"[221] [200][207][205][197] [199][210][207][215][206][160][205][213][211][201][195] [221] "
  68. 1520 print"[149][221] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [221] "
  69. 1530 print"[154]         [149][221]  [194]y [196]ebby [195]ruz   [221] [154]         "
  70. 1535 mm=1263:pokemm,160:poke54272+mm,14
  71. 1540 print"[154]         [149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [154]         "
  72. 1545 mm=mm+40:pokemm,160:poke54272+mm,14
  73. 1550 print"[154]                              [154]       "
  74. 1555 mm=mm+40:pokemm,160:poke54272+mm,14
  75. 1560 print"[154]     [202][213][203][197][194][207][216] player by [205]ike [205]aynard  "
  76. 1565 mm=mm+40:pokemm,160:poke54272+mm,14
  77. 1570 print"[154] [146][129][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  78. 1575 mm=mm+40:pokemm,160
  79. 1580 fora=1to7
  80. 1590 print"[154] [129][146][221]                                    [221]"
  81. 1595 mm=mm+40:pokemm,160:poke54272+mm,6
  82. 1597 ifa=4thenprint"[145][144]--->"tab(34)"<---"
  83. 1600 next
  84. 1610 print"[154] [129][146][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  85. 1615 mm=mm+40:pokemm,160:poke54272+mm,6
  86. 1620 fora=1to5
  87. 1630 print"[154] [129][146][221]                                    [221]"
  88. 1635 mm=mm+40:pokemm,160:poke54272+mm,6
  89. 1640 next
  90. 1650 print"[154] [146][129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  91. 1655 mm=mm+40:pokemm,160:poke54272+mm,6
  92. 1660 print"[154]                                       "
  93. 1665 mm=mm+40:pokemm,160:poke54272+mm,6
  94. 1670 fora=217to242:pokea,peek(a)or128:next
  95. 1680 return
  96. 2000 printfr$;
  97. 2010 fora=1to7:printov$"[156]"na$(a):next
  98. 2015 se=4
  99. 2016 ls$=""
  100. 2020 gosub100:printla$"[213]se the [195][210][211][210] keys to scroll the"
  101. 2025 print"music up and down."
  102. 2030 print"[208]ress [[210][197][212][213][210][206]] to hear the"
  103. 2040 print"selected music."
  104. 2050 print"[198]1 - [208]lay all        [198]7 - [209]uit"
  105. 2060 return
  106. 3000 poke198,.:ab=.:pa=.
  107. 3005 b=peek(653):a=peek(203):ifa<>7anda<>2anda<>4anda<>3anda<>1then3000
  108. 3010 if((b=.)and(a=2))or((b)and(a=7))then gosub3100:goto3000
  109. 3020 if((b=.)and(a=7))or((b)and(a=2))then gosub3200:goto3000
  110. 3030 if(a=1)then4000
  111. 3040 if(a=4)then4100
  112. 3050 if(a=3)then return
  113. 3060 goto3000
  114. 3100 se=se-1:ifse=.thense=ns
  115. 3110 tp=se-3:iftp<1thentp=ns+tp
  116. 3120 syssd:poke648,216:syssd:poke648,4:printfr$ov$"[156]"na$(tp)
  117. 3130 return
  118. 3200 se=se+1:ifse=ns+1thense=1
  119. 3210 bo=se+3:ifbo>nsthenbo=bo-ns
  120. 3220 syssu:poke648,216:syssu:poke648,4:printla$ov$"[156]"na$(bo)
  121. 3230 return
  122. 4000 pl=se
  123. 4010 gosub6000
  124. 4040 goto3000
  125. 4097 :
  126. 4098 :
  127. 4100 mm=se:pa=-1:forzz=setons
  128. 4110 pl=zz
  129. 4120 gosub6000
  130. 4150 gosub3200
  131. 4155 if(ab)thengosub2020:goto3000
  132. 4160 next:if(mm=1)or(ab)thengosub2020:goto3000
  133. 4170 forzz=1tomm-1
  134. 4180 pl=zz
  135. 4190 gosub6000
  136. 4220 gosub3200
  137. 4225 if(ab)thengosub2020:goto3000
  138. 4230 next:gosub2020:goto3000
  139. 6000 ok=1:he=.:ifls$=fi$(pl)then6540
  140. 6001 ls$=fi$(pl)
  141. 6003 gosub100:li$="[204]oading "+na$(pl):li=len(li$):ta=20-li/2
  142. 6005 print""tab(ta)li$
  143. 6010 sys57812"m."+fi$(pl),8,0:poke780,0:poke781,0:poke782,160:sys65493
  144. 6020 sys57812"w."+fi$(pl),8,0:poke780,0:poke781,104:poke782,207:sys65493
  145. 6500 open3,8,3,"c."+fi$(pl)
  146. 6510 fora=1to5:sys828,3,40:cr$(a)=a$:next
  147. 6530 close3
  148. 6540 if(ok)thensys52222,40960:ok=.
  149. 6545 poke214,18:print
  150. 6550 poke198,.:gosub100:fora=1to5:print"[154] [146][150][221]"cr$(a):next
  151. 6555 print"[154]          [208]ress "chr$(34)"[200]"chr$(34)" for help.          "
  152. 6560 ke=peek(203):if(key=29)or(key=60)or(key=10)or(key=62)then6562
  153. 6561 ifpeek(2)<>255then6560
  154. 6562 if(key=60)and(he)thenhe=.:goto6550
  155. 6563 if(key=10)and(pa)thenab=-1:goto6570
  156. 6564 if(key=29)and(not(he))thengosub7500:goto6560
  157. 6565 if(key=60)or(key=29)or(key=10)then6560
  158. 6570 gosub100
  159. 6572 sys52225
  160. 6575 print"[154]     [202][213][203][197][194][207][216